home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / rexx / zipscripts.lha / eject next >
Text File  |  1997-07-11  |  624b  |  24 lines
  1. /* Eject.rexx Version 2.0 */
  2. /* Created by Todd Deery, January 27, 1997 */
  3. /* Modified February 6, 1997 */
  4. /* Modified July 11, 1997 */
  5.  
  6. options results
  7. address command 'info zip: >t:out'
  8. OPEN('in','t:out','READ')
  9. do i=1 to 7
  10.   gar=READLN('in')
  11. end
  12. p=POS('[Mounted]',gar)
  13. dev=left(gar,p-2)
  14. dev=dev||':'
  15. CLOSE('in')
  16. if exists('zip:setup/path-remove') then do
  17.   address command 'execute zip:setup/path-remove'
  18. end
  19. address command 'c:ziptool >nil: zip: eject'
  20. address command 'assign >nil: 'dev' dismount'
  21. address command 'delete >nil: t:out'
  22. address command 'delete >nil: t:comm*'
  23. address command 'run >nil: rx rexx:zip.rexx'
  24.